home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 89 / maccd 89.iso / utilities / Mac OS X / ProcessWizard.dmg / ProcessWizard / ProcessWizard Daemon.app / Contents / Resources / renice.pl < prev    next >
Encoding:
Perl Script  |  2002-01-24  |  412 b   |  24 lines
  1. #!/usr/bin/perl
  2. # 
  3. # USAGE : renice.pl <nice> <pid> 
  4.  
  5. #($tmppath = $ARGV[0]) =~ s/(\&|'|")/\\\1/g; # escape &, ' and " chars with \
  6.  
  7. $nice = $ARGV[0];
  8. $pid = $ARGV[1];
  9.  
  10. open SHELL2, "renice $nice $pid |" or die "probleme";
  11.  
  12. # STDOUT: 759: old priority 0, new priority 1
  13. # ou
  14. # STDERR: renice: 759: setpriority: Permission denied
  15. # 
  16.  
  17. if(/.+ new priority (.+$)/)
  18. {
  19.     $newnice = $1;
  20. }
  21.  
  22. close SHELL2;
  23.  
  24. print $newnice;